home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Grab Bag
/
Shareware Grab Bag.iso
/
007
/
pardoxed.arc
/
REPEAT.SC
< prev
next >
Wrap
Text File
|
1987-08-15
|
457b
|
30 lines
Clear
dupmax = 40
dupmin = 2
? "Enter number of repititions: "
accept "N" Default dupmin to second
if ((second > dupmax) or (second < dupmin))
then
Clear
message "There is a limit of 40 repeats- min is 2, for 1 duplicate use F6"
sleep 2000
Return
endif
?
?
first = 1
EditKey
copytoarray rec
while first <= second
CtrlEnd
Down
Ins
copyfromarray rec
@4,1 ?? "#",first," duplicated"
first = first +1
Endwhile